home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
bbs
/
amms20d.lha
/
amms
/
mbbatch
/
com
/
add_port
next >
Wrap
Text File
|
1995-06-29
|
2KB
|
115 lines
;
; ADD PORT : AMMS-Script zum Einrichten eines neuen Ports
;
; VERSION : $VER: 1.04 / 29.06.1995
;
; Mit diesem Script werden alle noetigen Verzeichnisse & Files fuer
; einen neuen Port angelegt.
;
;
; Das Script sollte so eingebunden werden, dass es ueber Level und
; Flags auf die folgende Befehle zugreifen kann :
;
; CHECK FILE
; ECHO
; EDIT PORT
; EOD
; EXTERN
; GOSUB
; GOTO
; IF
; INPUT
; PARSE
;
; Folgende Amiga-Dos-Befehle werden benutzt :
;
; COPY
; DIR
; ECHO
; MAKEDIR
;
; Parameter auswerten
_parse "ADD PORT" P0 N/Port PORT
; Pruefe, ob Port schon existiert
_check file "amms:startup/'PORT'" NEW_PORT ; wenn nicht vorh., verzw.
_echo "^JDer Port existiert bereits !^J" ; Fehlermeldung ausgeben
_goto END ; -> Ende
;
; Verzeichnisse einrichten
;
NEW_PORT:
NAME="files:uploads/'PORT'" ; Dir fuer Uploads erzeugen
_gosub MAKE_DIR
NAME="mbmsg:point/'PORT'" ; Dir fuer Point erzeugen
_gosub MAKE_DIR
;
; Startup-File einrichten
;
NAME="amms:startup/'PORT'"
STRING="run port *""'PORT'*""*n"
_gosub MAKE_FILE
;
; Settings-File einrichten
;
PREFLOOP:
_echo "^JVorhandene Settings als Voreinstellung :^J"
_extern dir mbdevs:default/~(#?.txt)
_input PREFNAME "^JFilename : "
_if PREFNAME == "" then goto PREFLOOP
_check file "mbdevs:default/'PREFNAME'" PREFLOOP
_check file "mbdevs:default/'PREFNAME'.txt" COPYSET
_disk text "mbdevs:default/'PREFNAME'.txt"
COPYSET:
NAME="mbdevs:'PORT'.set"
STRING=""
_gosub MAKE_FILE
_extern/q copy "mbdevs:default/'PREFNAME'" "mbdevs:'PORT'.set"
_edit port "'PORT'"
_echo "^JFertig !^J"
;
; Ende
;
END:
_eod
;
; Unterroutine zum Einrichten eines Verzeichniss
;
MAKE_DIR:
_echo/nolf "Erzeuge Directory 'NAME' ... "
_extern/q makedir "'NAME'"
_goto CHECK
;
; Unterroutine zum Erzeugen eines Files
;
MAKE_FILE:
_echo/nolf "Erzeuge File 'NAME' ... "
_extern/q echo >"'NAME'" "'STRING'"
; _goto CHECK
;
; Unterroutine zum Existenzpruefen eines Files/Verzeichnisses
;
CHECK:
_check file "'NAME'" CHECK_ERR
_echo "Ok !"
_return
CHECK_ERR:
_echo "Fehler !"
_return